home *** CD-ROM | disk | FTP | other *** search
/ Die Speccy' 97 / Die Speccy' 97.iso / amiga_system / the_aminet / comm / misc / vmb1_11.lha / VMB / VMB-Install < prev    next >
Text File  |  1995-09-03  |  2KB  |  74 lines
  1. ;VMBIS Voice-Mailbox Installer V1.1
  2. ;░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░
  3.  
  4. (complete 0)
  5. (set @default-dest "SYS:")
  6.  
  7. ; ╗╗╗ Text ½½½
  8.  
  9. (set #Intro-Txt
  10. (cat "\n\nWelcome to \n\n"
  11. "Voice Mailbox V1.1\n\n"
  12. "Installer"
  13. ))(set #Warning-Txt
  14. (cat "Warning !\n\n\n"
  15. "If you don`t have installed ZVT then install it first!\n\n"
  16. "Voice Mailbox V1.1 requires 1 MB free on your disk \n\n"
  17. ))(set #Path-Txt
  18. (cat "Select your ZVT directory. A directory called VMB will "
  19. "be created there."
  20. ))(set #Path-Help
  21. (cat "\nThis section lets you choose the "
  22. "ZVT directory to install Voice Mailbox V1.1. \n\n"
  23. "A directory VMB will be created there.\n\n"
  24. "Default is SYS:\n\n\n"
  25. @askdir-help
  26. ))
  27. (set Assign-Help-Txt
  28. (cat "\nThe User-Startup will be patched \n"
  29. "...\n\n\n"
  30. @startup-help
  31. ))
  32.  
  33. ; ╗╗╗ Main ½½½ 
  34.  
  35. (message #Intro-Txt)
  36. (message #Warning-Txt)
  37. (set desti 
  38. (askdir (prompt #Path-Txt) (help #Path-Help) (default @default-dest) (newpath)
  39. ))
  40.  
  41. (set @default-dest desti)
  42. (makedir (tackon desti "VMB"))
  43. (copyfiles
  44. (prompt "Copying to " #desti)
  45. (help @copy-files-help)
  46. (source "")
  47. (dest (tackon desti "VMB"))
  48. (pattern "#?")
  49. )
  50. (complete 80)
  51. (run (cat "copy " "VMBDAT/VMBd \"" desti "/VMB.info""\""))
  52. (run (cat "copy " "VMBDAT/VMB.set \"" desti "/ZVT.Settings""\""))
  53. ; ╗╗╗ StartupSequence ½½½
  54.  
  55. (complete 95)
  56.  
  57. (startup "VMB"
  58.     (prompt "Some required commands will be added to your \"s:user-startup\" file.")
  59.     (help @startup-help)
  60.     (command "if exists \"" desti "/VMB""\"\n")
  61.     (command "   assign VMB: \"" desti "/VMB""\"\n")
  62.     (command "endif""\n")
  63. )
  64.  
  65. ; ╗╗╗ Finished ½½½
  66.  
  67. (complete 100)
  68.  
  69. (exit "Thank you for using the VMB Installer.\n"
  70.     "We appreciate your business.\n\n"                  
  71.         "No Carrier...\n"                                 
  72.     "CLICK.\n\n\n"                                          
  73.     "Please reboot your computer before trying to start VMB.")
  74.